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O REMOVING LENSLOK PROTECTION 
FROM ART STUDIO 


This is the first of two articles that deal with Art Studia. 
This month's article includes a BASIC loader program that will 
allow the user ta get rid of the annoying LENSLOK protection. It 
should work with any version of the Art Studia machine code, 
whether it’ the keyboard or joystick version. It replaces the 
present BASIC pragram "studio" and works as follows: 


Line 120 decrypts the LENSLOK machine code. This machine code 
is encrypted to make it hard to read. Fortunately, both a 
decrypter and an encrypter are included in the first part of the 
code. They are themselves not encrypted. This line of BASIC 
simply calls the decrypter. Once the code is decrypted, it is 
easier to make the FOKEs from BASIC which follow. These could 
have been made in encrypted form, once the encrypt/decrypt 
scheme was understood, but I preferred to do it this way. 


Line 130 makes the POKEs necessary to defeat LENSLOK. No 
a pushing of ENTER is required at RUN time. 


Line 140 removes the printing of the LENSLOK screens. If you 
would like to see them flash by on your monitor, just omit this 
line or insert a REM after the line number. This line could have 
been combined with line 130, of course, but it is written 
separately so that it can be omitted if desired. 


Line 150 starts the decrypted and modified machine code for 
Art Studia. 


Next issue will have a patch to allow the use of both TS2068 
joystick ports with Art Studio. 


160 CLEAR 25999 
110 LOAD "studio _me"CODE 26000 
120 RANDOMIZE USR 26028 
120 POKE 26784,0: POKE 26785,0: POKE 26842,0: POKE 26843, 0: 
POKE 27270,0: POKE 237271,0: POKE 27300,30 
140 PORE 26383,201: POKE 26395, 201: POKE 27280,0: POKE 27527,0 
150 RANDOMIZE USR 26049 
1000 CLEAR 25999 
a 1010 LOAD “studio _me"CODE 26000 
1025 INPUT "Da you wish to save the configured program to tape 
f(y or m) F "3s LINE a$ 
1927 IF a$<e"y" AND a$<>"n" THEN GO TO 1025 
1029 IF at="nm" THEN GO TO 120 
1930 CLS : PRINT "Place a blank cassette tape in’? "your 
cassette player." 
1040 INFUT "Press ENTER to continue "3; LINE af 
19050 SAVE "studioi" LINE 100 
1960 SAVE "studio me "CODE 26000, 30672 


1080 PRINT ("Rewind the tape and press PLAY" "for verification" 
1990 VERIFY "": VERIFY ""CODE 

1100 CLS : PRINT “Installation complete" 

1110 PRINT ("To load your configured program,” 

1120 PRINT "reset your Spectrum, then enter"‘"LOAD ‘studiol’. 
1140 STOF 

1150 GO TO 120 


USING THE TS-2068 JOYSTICK 
PORTS WITH ART STUDIO 


This is the second of two modifications that we are making to 
Art Studia. Last time, we removed that annoying LENSLOK 
protection fram the loader program. Now we will modifiy the 
machine code so that we can control the Art Studio cursor with 
both keyboard and joysticks that are plugged into the TS-2068 
joystick ports. It is important to note that although you will 
be using the 2068 joystick ports, you still must be in Spectrum 
mode to use Art Studia, 


The keys that I have chosen for cursor movement and action 
initiation (FIRE) are listed below. These keys are built into 
thae machine code and can only be changed by rewriting the 
code. 


FUNCTION KEY 
Up 7 
Down Ò 
Left 5 
Right 8 
Fire ENTER 


The joystick works normally, it can be plugged into either 
joystick port or seperate joysticks can be plugged into each 
port at the same time. 


Type this code in using HOT Z (while operating in 2068 mode). 
SAVE "scan" CODE 41059,1231 on a spare tape or disk. The new code 
will replace the existing code used with the Interface 2 and 
Kempston joysticks. 


The way to insert this code into Art Studio machine code is 
simples 
LOAD Art Studio machine code (in Spectrum mode) 
LOAD the "scan" code on top of it. 
PORE 31999,1 
SAVE the revised code. 


If you have made a tape with the BASIC loader program, 
“studiol” (from last issue) on it, followed immediately by the 
normal Art Studio "studio _mc", then you can proceed as follows: 

MERGE "“studiol". 
Stop the tape as soon as “studioil" has loaded. 


Add the following lines of BASIC: 
142 LOAD "studio mc" 
144 FOKE 21999, 1 
146 STOF 
RUN 
Restart the tape to load "studio me". 
Rewind the tape and remove. 
Insert the tape containing "scan" and play. 
Remove lines 142, 144, and 146 
GOTO 1025 to SAVE and VERIFY the revised code. 


#** FROGRAM LISTING #*# 


ADDR HEXCODE LABEL MNEMONIC 


S000 SUN SOR Stet cote sete es tee see sees eet et tet este ee eet eet see ee cee eet poeme eee ee et et eet eee x ee 


AQS FEF? EYED LD AF? 
A0SS DEFE IN A, (FE) 
AQS7 47 LD B,A 
ADAB HERF LD A, BF 
AGGA DEFE IN A, (FE) 
AGC 4F LD C,A 
AQ6D ZEEF LD A,EF 
AUSF DEFE IN A, (FE) 
AQ71 57 LD DA 
A072 AF XOR A 

AQ7S CESA BIT 2,0 
A075 2002 JR NZ, ĵĤ079 
AQ77 Feo4 OR 04 

AQ79 CRE BIT 4,0 
AQ7E 2002 JR NZ, AQ7F 
AG7D Fog OR og 

AQ7F CR&SO BIT 4,8 
AQBL 2002 JF NZ,AQ8S 
AQNBS Fonz OR OZ 

AOG CESS BIT 2,D 
AQBF 2002 JR NZ, AQSE 
ANSP Fol OR ül 

ACBER CE41 BIT 0,C 
AQ8D 27002 JR ONZ,AQF1 
ABF Fé1O GR 10 

A091 B7 OR A 

ANGS 2029 JR NZ, LOAD 
AN94 EOE JSTE LD A, GE 
AQOFG DFS OUT (FS),A 
AQIS OLFS6o0S LD BC,O2F6 
AOGER EDS IN A, (0) 
ADFD 47 LD BLA 
ACFE AF XOR A 

AQSF CE78 BIT 7,8 
AQAL 2002 JR NZ, AQAS 
AGAR Flo OR 19 

AQAS Ch4O BIT 0,B 
ADAF 200Z JR NZ, AQAR 


ADAF FSO4 OR o4 


2 


AQAB CB48 BIT 1,8 


ADAD 2002 JR NZ,AQKI 
ADAF F493 OR oB | 
AOBRI CESO BIT 2,6 | 
ADRI 2002 JR NZ, A0B7 | 
AORS F602 OR 02 
A0E7 CRSB BIT 3,8 
A0B9 2002 JR NZ, LDAD 
AOBBR Féol OR O11 
AQBD SSDFAC LOAD LD (ACDF), A 
AOC C9 RET 
AQCL 00 NOF 
to 
AODE oO NOF 
ART STUDIO AND THE GORILLA BANANA PRINTER 


John McMichael 


The following instructions were provided by John McMichael, 
1710Palmer Drive, Laramie, Wyoming 82070, 


Turn to page 46 of the Art Studio manual and do parts (a) and 
(b). For part (c), make the following pokes: 


48000, 100 48001, 135 48002, 110 48003, 135 
489004, 111 480035, 135 49006, 116 48007, 135 
48008, 21 48009, © 48010, 201 48011, 219 
48012, 127 48013, 203 48014, 103 48015, 201 
48016, 23 48017, 128 48018, 211 48019, 127 


48020, 201 


Do part (d) as in the manual and then enter the following 
specifications as they are requested: 
l. Code for Graphics prior to a screen dump: 137 
» Max number of dots in single density mode: 480 

Code for choosing single density mode: 128, 128, 128, 128, 
8, 128, 128, 128 
Max number of dots in double density mode: 960 

Code for choosing double density mode: 0 

Code for Carriage Return: 141 (with linefeeds) 

148 (without linefeeds) 


bh) 


O UF Be td hj 


7. Code for Linefeed: 138 


That should do it! The Art Studio program should now be able 
to make 2X2 sideways printouts as well as the 1X1 printouts on 
the Gorilla Banana printer. 
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